home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / dir / simplefind.lha / SimpleFind / ARexx / saveselentries.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-26  |  586 b   |  37 lines
  1. /* $VER: savelist.rexx 1.0 (25.03.98)
  2.  * Saves the all selected entries into a file
  3.  */
  4.  
  5. options results
  6.  
  7. sfportname = 'SIMPLEFIND.1'
  8.  
  9. /* Check if SimpleFind is loaded */
  10.  
  11. if ~show('p',sfportname) then do
  12.    say "SimpleFind isn't running"
  13.    end
  14.  
  15. address value sfportname
  16.  
  17. getselentries
  18. entries = result
  19.  
  20. getfirstselentrypos
  21. fs = result
  22.  
  23. setentrypos fs
  24.  
  25. open(outfile,'RAM:test.list','W')
  26.  
  27. do for entries
  28.   /* get current entry and move cursor to the next selected entry */
  29.   getselentrynext
  30.  
  31.   /* write the entries name to the file */
  32.   writeln(outfile,entry.name)
  33. end
  34.  
  35. close(outfile)
  36.  
  37.